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Developing Applications with Microsoft Dorks 

Int roduct i on 

Developing applications an the Tandy 6>3U can b S a c^a! 'enge. The 
primary storage device is RAM-based j and therefore is extremely 
tra9 i I e in the face gt run-au>ay code. In addition* the operating 
system does not have offer an interactive 'DEBUG' -I ike facility. 
These factors make spp' icatian development an the Tandy 600 
difficult. 

Microsoft Uorks so'ves this dilemma by allowing the application 
developer to create and maintain orograms on a MS-DOS based 
computer. Tools are provided ta create aopl icaticn- and ROM-image 
files. A simulator of the operating system) Hand-Held Operating 
System (HHOS) allows the develooe- tc test the : r code prior to 
installation on the Tandy 60 Q . In conjunction with Microsoft's 
SYMDEB> interactive ''debugging'' *r\ay be dene from within the 
s i mu I a tor . 

Requ i r ements 

Microsoft Uorks reauires that the developer Has t^e foMowing: 

- Microsoft Uorks D ; sk (Vender D e v e f C P ' *n © n t Services Interna! 
Document * VDS-2639Q 1 -Dl > 

- Microsoft Macro-Assembler ( MASM ) version & . D . 

- MS-DCS based computer with 512K 3AM (not ca-mpat ?b le with 
Tandy 20DG) . 

Developing Applications 

In order to deveioo a a a I ! c a t ' C n S - 4 a ' I a w the guidelines set fart" 
in the Tandy 6CD Programmer ' s Reference Guide 3nd BIOS 
Sp9c :i; cat'onsi oages Ill-lit. Convert the j . E X E J f '• ' e created .- 
MASM with the EXECNv 1 utility. The resultant ; . HHX J may be then 
transportec to tne Tardv £)Q0 through RS — 232C connections. 
'TELCOMN provided with the Tandy 6DC> orovides XMODEM 
capabilities. r he ^esu'tant ' . HHX J may also be tested on the HHCt 
simulator. This involves c - e a t i ~ g a ROM i n a a e tie. 
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Deve I op i ng ROMS 

"""he Tandy &Q0 hardware s designed to sjnpnrt a secondary ROM or 
EEPROM. During baot-up procedure* if the ROM is determined to 
nave been ; nsta! ;ed; HHCS reads the contents of the ROM) and 
places the names of the apo I i cat ion(s) -found therein an the menu 
bar. The BLDROM utility creates the ROM image in a format 
acceptable to HHOS . BLDROM determines with apol ications to place 
on the ROM image by reading the file DEBUG. GEN. As provided* 
DEBUG. GEN is set up tc create a ROM image fiie containing 
overlays of HHOS? Microsoft Uard> and the Pop-Up Calculator. To 
have BLDROM create a ROM image file with your appl icaticn(s) j 
merely add the names of these to the DEBUG. GEN file. For example 1 

word . ! 30 word . ! 3D 
dump6DD.hhx dump6DD . ! 72 
d:r600.hhx d i rhOO . ! 93 

Note: If you are creating a ROM image f i le intended to be burned 
into the secondary ROM, do not have BLDROM ca°y the HHOS 
over t ays i Uord> or the Calculator. These f i I es sre present and 
avai I ab I e in the primary ROM of the Tandy tOO . 

Using The Simulator 

r he premise behind the Simulator is to provide an environment 
similar to HHCS? operating under MS-DOS . To do this ' first 
ae^eiop your application with M A S M . Convert the ' . E X E j file to 
' , H H X ' format. Create a ROM image file* with the operating system 
overlays) Word* the Calculator; and however many of your 
appl ications. Then i t y°e : 

HH5IM DEBUG. PRM 
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The t o d sort ion of t-^e screen :!earsi and the simulation of tSe 
Tandy 60 D begins. Note that the simulator does not emulate t * e 
BIOS calls far RS-232C . Uhen referencing the Tandy £0D's disk 
drive* the simulator mill access drive A = . If you reauire 
referencing the T andy £03 ' s disk drive, use BLDROM to make a ROM 
image -file of the cats or Diagrams files found on the disk drive* 
and copy that f i 1 e > DE3UG .ROM? to drive A: prior to running the 
S i mu I ator . 

The f i le> DEBUG. PRM> contains parameters about the simulation. 
The number of rows and co'umns on the screen can be altered) the 
name of the ROM image file may be soec i f i ed > as well as the RAM 
file. The RAM file has the contents of the directory system. The 
RAMSIZ variable allows the user to soecify the size of the ROM or 
EEPROM be i ng used . 

In running the simulator* note the the Fl key ; s used as the 
'Labe'-' key. A I ter nate-Fl exits the simulator back to MS-DOS. 

Interactive Debugging 

In order to use SYMDEB in conjunction with the simulator? first 
create a ' . MAP ' file of your application with MASM . MAPSYM 
converts this fi 1e to '.SYM' format. Then* type : 

HHDEBUG (name) . SYM 

And *■ o J ! o u; the instructions outlined in the M'crosoft Ul o r k 9 
document at ion, 
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App I icatian Structure Overview 



f i xed he 



Tandy 60D applications files have a 

is used by HH05 to determine the amount of m 

program. Information is in the header to i nd 

data region* stack* and cade. As designed? a 

tables* etc. intended to be in the data segm 

the cade segment a f the application. During 

al locates a data segment in memory* 

from the code segment. Stack is set 

user specifies where the stack pointer offse 

immediately following the loading of an aopl 

data segments may I oak as fol lows: 



and 
u P 



move 
n th 



ader 
emo r 
i cat 
I I s 
ent 
I oad 
S th 

e da 
t w i 

i cat 



Str 
y re 
e th 
t r i n 

t i m 
es e 
ta s 
\ I b 
i a n j 



uc t u r e 
qui red 
e size 
gs j da 
canta i 
e i HHO 
e i em en 
e gm e n t 
e . So j 
cade 



> wh i ch 
b y the 
of the 

ta 

ned i n 

S 

t s auiav 

; tie 

and 



Cade Segment 

+ 

Header 




data tables* strings* 
etc. * TO BE MOVED TO 
Data Segment from 

Co de Segmsr t . 



Data Segment ( AMI ) 

+ 

Stack a.-sa 



+ 



Data tables* strings* 
etc . > THAT UAS MOVED 
TO Data Segment tram 
Code Segm en t . 

extr-a s°ace far un i n ! t 
tabi es « etc. 



+ 



Keeo 



n 



m 



i nd that th i s 



tuat i an 



hangeab ! e by vour 



app I ' cat i o n 



awing load p^aceaures. 



V QU 



mav change rsmnry 



ocat ion to fit the boo 



cat i a n 
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Here is a sample header: 



; 


sample Header 




du 


5*10h 




d LU 


9DDDh 




db 


a 




db 


f y f 




db 


i > 




db 


J WRK ; 




dui 


beg i n 




dw 


stack 




du 


cs_ ! e 




dw 


data_ 




dui 


data_ 




dw 


data 



final 



ao I chk 
3ti i cad 
I d r ! d I 
am i v i 5 J 
am i t y p » 

ami '5 ; 



8D8o nat 
AMI u i s 
Dw n e d f 



am 

4. ; 



ex 1 3 

85 

so I i p ; 
cade 
ap I sp ; 
area ■ n 
ap I s i z 5 
dat pes » 
UITHI^J 
da t I dz ; 
AMI ; to 
da t I en ; 
se gme n t 



ve c d d e 

ble fram menu 

I es sr e 
- ' far data 
ex tens ion fur- AMI 



set IP ta origin of 

set SP ta top of stack 

AMI 

size of code segment 

beginning data area 
CS segment 

beginning data UJITHIN 

be. . . 

. . .moved from CS 
j for length of data 



""he Data Segment? referred to as an AMI j is an actual data f i !e 
created by the application. The file is named ' UO^K . ' > with the 
extension indicated by the ; AM I EXT ; f I § I d '•■ n the header. It is 
extremely important to assign unique extensions for your 
acoi ications. HHOS determines owner s tn i d of * i ! es f -on the 
extension wnen displaying the menu bar. 

If your AM I file exists the subsequent t ; mg yo^r application is 
run> the previous values ujithin the AMI are maintained. That is> 
the previous contents of v c u r data and stack segment are intact. 
This is important to note? as H H 3 is designed to allow the user 
to leave an apoi 'cation for another) and return back to the 
original intact (e.g.* the Pao-Uo Calcu'atc* ! . 



*nat contrg's whether vcur AMI file is 5 t ; 



resident as +: !e 



hauj you ex't * r o m y o u - a d d i i cation. Should you wish to exit the 
application with AM] ntacti your code segment should r sad '■ 
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mov 



mov 



a ; i a 



ah ,£x i t 



42h 



; exit aso! icaticn with AMI 

i n tac t 
; ah = MHOS function code t 

ex i t 
; ca ' HHOS 



In Order 
r ead : 



c have the AMI 



< : 



ed an exit) change the first i ne to 



no v 



a! . >-l 



; exit application! kili'ng AMI 



Uhen exiting your ass! "'cation to ca!! another (say* the Pop-Up 
Calculator)? use the first method shown above. To exit yaur 
appl ication back to the menu bar; use the second, 

Uhen writing your application? it is imoc~tant to note that at 
any time? the user may press a function key to either exit ycur 
application) c r call uo another. The keyboard routines must be 
designed to check far the p^ooer scan cades* and act uoon them 
immediately. The samp 1 © programs shown belouj ' I lust-ate hcu to gO 
abou t this. 

Sample Programs 



The two s a rn p • e programs illustrate p**ogramm : " = styie and 
structure ■*■ or the Tandy 600. The first demonstrates haw to ^e 
the AMI * i ! e 3 when the application is "unningj it prompts t^e 
use- for a string of characters. Uhen run again* the crigina 
string entered is displayed. The AMI file ; s then killed. 



U5« 



The second program lustrates keyboard scanning techniauesi as 
we i I as f i le management- These programs demonstrate different 
ways to handle data placement in the :oce seg^e^t. 
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M600F. ASM 



page 
title 



50) 132 

Samp i e 



andy 6 



cgraii 



Samp i e program prompts the user to type information 

(Con5tr irglnput emulated). Text is displayed back to the 

screen) system date and time Br e displayed. 1+ AMI present 

•from last time? tne previous contents Br e displayed "first. Also 

note the keyboard Kand 1 e^ tKat takes care of user forking o + f 

to the pod — up calculator) etc. 

os_redraw- Ue J d Have to buffer what is on sc-een at fork-time* 

to restore previous contents on exit. Not attempted* but marking 

at the LCD level iooks the path to foi low. . . 

Written 4-1Q-66. (M6GC P .ASM> 



HHOS Funct i ons 



GetT i me eau 

GetDate eau 

ConStr i ngOutput Sau 

Ex i t eau 

G e t C h a r ?aj 

°utCh sr eau 



2ch 
2ah 

G9h 
4ch 
-Bh 
D2h 



9?t sy s tern t i me 

get sy s tern date 

disolay string to console 

exit to das 

get char from keyboard uj/o echo 

write char to screen 



u 



Sxt t nterruot 



unc t i ons 



C I ear 5c r ee^ 

Ge tCur so r 
SetCurSQr 



ecu 
equ 
equ 



Dlh 
D3h 
D2h 



clear screen on led 
get cursor oasit'on 
set cursor p D S i t i on 



Das Int 



macro 

i nt 
endm 



funct i on 

ah » funct i on 

42h 



i ah = funct i on 
i go c a : i d o s 



run oe r 



_cdlnt mac-D function 

nov ah i funct i On 



ah = funct ■' On number 
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i nt 
e^dm 



51K 



ca 



BIO 



cede 



SEGMENT pub 1 i c ' C02^. 
ASSUME cs:cade>ds : cade 



D5P! n 



start 



Tl-i f s is the program Keace 



ri w 


5f lDh 


d w 


90Q4h 


db 


D 


da 


'V 


db 


f > 


db 


'M6F' 


d w 


start 


dw 


OlDOh 


dw 


dD 1 s i 2 


du 


begin a f data 


dw 


OlOZh 


dw 


da ta_ 1 ength 



cdlnt C ; earScree 



a o o 



i cat 
C'^r a p p ; 
8G86 nat 
eos : s a 
owned f i 



o n 



on check 
cat i or ^5 
ve Cues 
^ays visible 
es are AMI s 
extens i on (MUST B" 
beg inning a f IP 
o I ace to put SP 
size at a^ol ica:icn 
begi nni ng of data 
° ; aca to : * e e o dat 
length a* data a r -_- a 



clear the scr een 



Cu 



am: 



r- | \ 



esume : 



T! V 

m a V 
rr D V 

ma v 



L c o d j > c s 
[dad] ,ds 
lead Z > 55 
[5Dd]j55 

C spd ] j ax 



save cade segment 
save data segment 
save extra segment 
save stack segment 
stark stack cutset 
save stack offset 



figure out where t h : n 



gs ar 3 



^emarv 



ma v 
ma v 
cal 

mav 
m a v 

:a j 



ax j [ cod ] 

s i > o + f s e t :a:S 

b i n _ h e x 

ax > '.dad] 

s i » of f set dad$ 

bin hex 



get :cce segment 

s i -> place ta ! < e e d answer 

convert binary to asc ; ; hex 

get data segment 

si - > p'ace to put answer 

concert binary to asc i ' hex 



Tandy Vendor Development Interna I Document 
Page 8 



Tandy Vendor Development Internal Document 
Number s VD5-2637Q1-D2 



mov 
tiov 
cal I 

mDv 
mov 

cal I 

mov 
mov 
ca I I 



ax i CeodZ 

5 i ■ a f f set ead$ 

b i n_hex 

ax » [ s ad I! 

s i > a f f se t sadS 

b i n_he x 

ax r Cspdll 

5 i > of f set spdS 

bin hex 



get extra seam e ~* 
s, -> place t a put 
da canver s i an 
get stack segment 
si "*> answe" 
da confers i an 
get stack offset 
si — > answer 
da can ve»-5 i an 



a-^swe 



mov dxiaffset seg$ 
Daslnt ConStringOutput 



I past answer to screen 
i t h u 5 i v 



post a "howdy" to t k e screen 



mov dxi offset heM'oS 

Ooslnt CnnStringOut = L!t 



n 



J d s : d x - > "hello 

; nut to screen ue go 



prompt users to tyoe something in 



ma v 
cal I 



s i y of f set bu f fer$ 
ConStr i nglnput 



5 d s = s i — > user buffer 
I await keyboard e^try 



post a repo-t to the users 



D u S n 5 1 

mov dxi D+f set repOr+S 
Dos Int ConStr i ngOutput 



save this for a minute 

d i s o a y header ^n^or-nat^an 

oast to screen 



or epa^e to a * 5 d : a y user's input to screen 



oap dx 

i nc dx 

mQ v 5 i j dx 

: nc dx 

m □ v b ! j byte ptr CsiH 

y.or bh j bh 

mav byte oti* C s i fbx 4, 1 ] > ' 
Oaslnt CanStringOutput 



$ 



get a ++ set back 

jump over OUR 'ength byte 

move that i nta s i 

juitd n-^er T HEIR length bvte 

get length cf entered buffer 

c f ean this up 

stash an end-a * — s t r i rg 

and display string 
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get system date 



Dos I n t Get Date 



get system date 



mo v 

mo v 
cal I 
ma v 
cal I 
cal I 



5 i j of f set date* 

aNdK 

canver t _5 i ng I e 

aF *d\ 

con ver t_5 i no I e 

can ver t daub I e 



s -> esc: i buffer far date 

convert rronth first 

conve-t 2— digit a s c i i 

convert day next 

convert 2— digit ascii 

convert ymar in cx> 4— d i g i t asc 



ge t system ti me 



Das I n t GetT i me 



ma v 
mau 
cat ! 
ma v 
cal 1 
ma v 
cal ! 

ma U 

ca I I 



5 i ) d 4 - tse t t i me$ 

a I 1 ch 

canver t_s ingle 

a!>cl 

convert_5 i ng le 

a: ,dh 

canver t_s i ng * e 

a' -d: 

canver t single 



get system time 

si ~> ascii buffer far time 

handle h our 

da ca nver 9 i on 

hand l e mi nJt55 

do ca nwe r s i On 

hand I e s econds 

do conversion 

handle hundreds of seconds 

da conversion 



oast answer to screen 

mcv dxjoffset system_time$ i dx -> the time is 
Dsslnt C:"5ir ; n °OutPut J send to screen 



await keystroke and exit 



exit a 



Dcslnt 
ma y 
tv 
Oaslnt 



GetChar 

a! ,0 

Ex. t 



aua't character 
nc s r r a •* i but 3 

exit to DOS 



aw resumption 



we get he^e ^rarr second invocation 



r^o v 



o ' ) 



; post a mi nu s are 
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mow 



byte otr cs=Cex : t a' i tv] >a 



I save ; nta exit routine 



Lrdlnt ClearScreen 

mCv dx>offset 5 ec ond_t i meS 

Ocslnt ConStr i ngOutput 

mav dxjcf+set repartS 

Daslnt CanStri ngOutput 

mav dxjaffset but *erS + 2 

Daslnt ConStr i ngOutput 

jmp resume 



c i ear sere?" 

d s : d x - > second time around 

past that 



out it gees ! 
resume code 



Convert binary to decima' asc 



can ver t _s i ng 1 


e • 




push 




ax 


push 




bx 


push 




ex 


push 




dx 


x or 




a h ? a h 


J mo 




conver t 


con ve r t _d oub 1 


e : 




push 




ax 


push 




bx 


push 




C X 


3 us h 




dx 



hart 



5 ave registers 



i c iean out ms b 

! da short conversion 



save registers 



x c <"i R 



£x J c x 



< 5) •-*> ?= 



D w x W : t n 5 x 



c a n v e r * 



m v 

cal I 
no v 
cal I 
shar t 
-Cv 
c a i 
mav 
c a I 
i nc 



l ! 



cx; 1D0C 
decimal __asc i 
cx>lD0 
decimal as c i 



ex , ID 
d ec i ma 
cx» 1 
d ec i ma 
S i 



as c ; 



asc: : 



s ee 



; i 



uie ; ve ery thousands 



= o ca 



:e:jrs 



see if we've arv hundreds 
go cal ! procedure 

see if we've any tens 
go cal I Procedure 
see If we've any ones 
go dc it 
skip over 
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PQD 

OOP 
POP 

ret 



dx 
ex 
bx 

ax 



i restD-e registers 



to ca M er 



da the actual base-o^-ten determination 



dec i ma 
a I ooo : 



add i t 



asc 

xar 

sub 

i nc 

jmp 

add 
add 
mav 
i nc 

ret 



b f I b I 

a x i c x 
add_ i t 
b i 
a I oop 

ax j ex 

b I >3Qh 

byte p t r [5 i ] > b 

5 i 



c 1 ea 



register 



s ee i f ex is in ax 
branch oyt jf negative 

bumo counter 
go da ass i n 

restore the one taa far 
mak e it asc i i 
stuf* ans we- t 
bump painter 
to ca I ! er 



buf+ered keyboard entry 



anSt r i 


n g I n p u 


t : 






oush 




5 i 




mav 




c 1 j by t e p t 




mav 




:h » 3 




i nc 




5 ■ 




push 




5 '- 


nLaao 


; 








JD5 In 


t 


GetChar 




crip 




ax j 670DK 




jz 




as_qu i t 




CT1D 




ax > 5e00h 




J ^ 




Q5_5u5D9nd 




Clip 




ax, OclODh 




• 
J2 




05_suspend 




cm p 




ax ; Qc2DQh 




Jz 




05 r ed raw 



r [s 



soe : ' 



sav e -far a 
get 'animate 

this is CGJltSi" 

bum o si 

for a sae 



save 



— — -* — ■ at 

to ooint to results 



get a char act e r 

da we have a (qui t> 9 

y = 5 ; get nut 

do we have a contra 1 -*! 9 

yes, get out 

da we have a <susDend>^ 

yes , get out 

da we have a (redraw) 9 

yes» get out 
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CTP 




ai ii.o 


J 2 




Co nEx i t 


cmp 




al 18 


J 2 




Co nBac k 


erne 




ci-n 


J2 




COnFu 1 1 


mow 




dl -al 


DasI 


nt 


Pu tCKar 


i nc 




5 ' 


mov 




byte ptr [si ]>al 


dec 




ci 


i nc 




ch 


j mp 




ConLoop 


ConBac k = 






emp 




ch ,0 


« 

JZ 




ConF.j ! 1 


Lcdl 


nt 


GetCur s or 


dec 




dh 


push 




dx 


Lcdl 


nt 


Set Cursor 


m Q v 




dl i ' J 


DasI 


nt 


PutChar 


o □ a 




dx 


Lcdl 


nt 


Set Cur S or 


dec 




S i 


i nc 




c i 


c ec 




:S 


j mp 




CanLaop 


CanFui < : 






T.QKJ 




d 1 ,7 


DasI 


nt 


PutChar 


jmp 




CanLocp 


CanEx i t s 






0{]D 




s i 


01 V 




byte Dtr [ s i ] > ch 


pap 




s i 


r et 






35_5US DGnd ' 






^ay 




al >U 



S it a carriage return? 
yes j so exit rautine 

s i t a back 5 pace 7 
yes i so hand I 9 

s ex = 9 
yes j so h»a nd I e 
move character into dl 
p as t to screen 
i ncrement pa i nter 
s awe char ac t e r 
decrement c! 
and increment b I 
go and da it again 



nav 
yes 
get 
ma\j 

sav 
set 

dis 
pas 
get 
set 
bum 
i nc 
dec 
3a 



e we backspaced a 
i so beep user 

cursor pas i t i on 
e back column 
e position 

cur sar pas 
p I ay a space 
t a cKa r ac t e r 

cusar pas back 

cursor pas 
s pa i nter back 
pement c ' 



way 



d a aqa 



n 



beeo 
post 

50 do 



o screen 
a°a i n 



get back old Dtr 
save character count 
get Original Dtr 
to caller 



exit w / return 
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05 qui t : 



qujab 



mo v 
OOP 

POD 

pap 
ma v 
eau 
Das Int 



byte otr cs : [awab] »a ! i stash into in—! i ne code 



5 I 

s i 

ax 

al »-l 

S-l 

Ex i t 



* i x stack 



camD letelv exit 



; 'bye 



J imp 



5 tar t 



> oo a&a i n 



3S_red.-3W : 

□ □ p 

OQO 
OOP 

Lcdlnt 
mav 

Das Int 
jmp 



5 ! 
5 i 

ax 

C I earScr een 

dx> offset back_aga i n$ 

CanStr i ngOutput 

r es ume 



c I ean stack 



c I ean the screen 
dx -> string 

go da aga i n 



b i nary - to — asc i i hex converter 



n_ 


_h 


ex 


ma v 


n_ 


I 


DO 


D * 

push 

mov 

and 

mov 

rar 



add 
cmD 



c X f u 

C X 

b ! 3 ah 

b i > uncoaob 

c i >4 

b I i c I 
u i . t n j 



a 





-> *— 


b i n post 






add 


bl ,7 




D 


n_pD5t : 








ma v 


byte p t r 


r 




ma v 


c) »4 






r a i 


axicl 






i nc 


S ! 






DDD 


cx 





:>b 



; da this four times 



we 



i i 



I be usi nq this ! ater 



move msb into b ' 
Strip off Is bits 

5Pn around 4 bits 

spin bits back 

add asci i ' □ J to resultant 

see i + ' A' . . *F ' 

if carryj let through 

else, add 7 t a r-ake y A ' . . ' ^ ' 

save cur character 
soin * our by t e s 
spin ax around 
bumo si to next scat 
get counter back 
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I OOP 
ret 



bin I o od 



5 go da aga i n 
; to ca i ' er 



strings and things 

DS that gets moved into ami 



begin_ai _data 
d+ i s e t _da t a 

cod 

dod 

eod 

sod 

spd 

he 1 I o$ 

bac k _ag a i n$ 

second_ t ; me$ 

buffers 



r eoo r tS 



system t i me$ 



date$ 



t i me$ 



eau 


equ 


equ 


dui 


equ 


n ijj 


equ 


duj 


equ 


dw 


equ 


duj 


equ 


db 


db 


equ 


db 


equ 


db 


db 


eau 


db 


db 


db 


equ 


db 


eq U 


db 


equ 


db 


ea u 


db 



iazh 

S-begi n_af ^data + af fset^data 

D i code segment 

$-beg i n_p + _data + at+set_data 

D J data segment 

S-beg i ^_af_data + affset_data 

i extra segment 

S-beg i n_a + _data- t -of + set_data 

D 3 stack segment 

$-beg i n_of_data + a++set_data 

D ; stack a-ftset 

$-begi n_o + _data + a + -fset_data 

'This is a sample program. Type something' 

13, lDi '$' 

$-beg i n_nf_data + of + set_data 

'This is a <Re-Drauj> Request' .13.10.'$' 

$-begin of data + o-f + set data 



This is the second time a-aund 1 



13*10 



The last time arQund' you t y =. e d : ' . 1 3 y 1 C ' ' 5 ' 

$-beg i n_o + _data + otfset_data 

2D 

D 

21 duoC) 

$-begi ^_of_data*af*9et_data 
13)10)' Yau Have typed* ; »13;lD 
$-beg : rt_o-f_data + af-fset - data 
13; ID? 'System Date is: ' 

$-begi n_o^data + nf f set_data 

'an-nn-Dcca ; t :^ e \ s -. > 

$-begi n_ f_d3ta + of f set_data 
'DO :03:Qu .00' > 13* ID 



i a i 



% 
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seg$ 

codS 

dod$ 

sod$ 

sod* 

spd$ 

end_o+_dat a 
end_a f _uiar Id 
ap I s i z 
data_ I ength 
code ends 
end 



db 

equ 

db 

db 
eau 
db 
eau 

db 

equ 

db 

equ 

db 

equ 

equ 

equ 

equ 

Start 



'Press a Key to Ex ! t ' - '$ ' 

S-begi n_cf_data + nf+5et_data 

13) ID. 'CS has ' 

$-begi n_cf_data + af + set_data 

'DODO. DS has J 

$-begi n_c ^_data+c+ +set_dat a 

J DD00. ES has ' 

$ — beg i n_a+_ d at a + a + -fset_data 

'DODO. SS has J 

t-beo: n_af_data+o-f-fset_data 

; DQDD. SP has ' 

$-bsa i n_o-f_data + affset_data 

'DDOD . ' j 13- 10) } %> 

$ 

$ 

end_o + _iMQr I d-beg i n 

end_o + _data-beg i n^of^data 
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DIR600.ASM 



czr 

I f 



cage 
title 



55> 132 

J Dir 6D0 - Sanoie Qi-ecto^y display ^ogram' 



Dir oOD - program that reads the directory for specified 
ui i I dc ar d . 



Vers i on 1 . D > 7-15-8o 



equ 
eau 



Gdh 
Gah 



; carriage return 
; \ i ne feed 



DOS Function equates 



PutChar equ 

GetChar equ 

CanStr i ngOutput equ 

Ex i t equ 

F i ndF i rst equ 

F i ndNext equ 



02h 
08h 
Q9h 

4ch 
4eh 

4f h 



write char to screen 

get char from keyboard uj/o echo 

display string to conso'e 



exit to "DOS 



find first matching file 
; find next matching file 



LCD Text Interrupt Functions 



C I earScreen 
SetCursar 
Ge tCur sar 



eau 

eau 
eau 



Dlh 
02h 

03h 



clear screen an ' cd 
set cursor position 
set cursor oas i t ; an 



Dos I nt 



macro 
ma v 
i nt 
e n dm 



funct i on 

ahj f jncti Dn 
42h 



; ah = function number 
; ga call dos 



Lcdlnt 



macro 
nav 
i nt 
endm 



funct i on 

ah y funct i on 

5 th 



an 



= f unc t : on number 

i aios 



Code 



LuU'_ 



SEGMENT oub i i c 

ASSUME cs:code>ds:ccde 
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Thi i s is the program header 



beg i n : 



dw 


5+lDh 


dui 


9DQ7h 


db 


n 


db 


"J' 


db 


) J 


db 


'DIR' 


dw 


start 


dui 


Data_Length+01CQh 


du; 


ap 1 s i 2 


dw 


Beg i n - + _Data 


dui 


Beg i n_Of_Data 


dw 


Data_Lengtn 



sc 

ap 

OUJ 

ex 
be 
□ I 

S " 

be 
p I 

I e 



P I i 

i* a 

ned 

terr 

g i n 
ace 
ze 
g i n 

ace 
ng t 



cat 

DO I 

nat 

s a 
+ i 

5 i o 

n i n 
to 

O-f 

n i n 
to 

h o 



C n check 

cation has cade °0D7h 

ve cade 

ways visible 

es &re AMIs 

( mus t be u n i que ! ! ) 

of IP 



S r - 



i n 



out 

pp ! i cat i on 

o f data 
keep dat a 
data area 



AMI 



dump 



pr o c 



far 



data area 



8e°in_0+_Data equ 



^beginning of data area 



- ; !e5pec$ 
He l I oS 



db 
db 

db 
db 
db 



$ 

12>C 

13 du P (?) 



J Oir 6DQ - Tandy 600 Oirectarv Test Suite. J » c r .i 
'7-15-86; Version 01 . DO . * > cr * ! i 

cd It; J Enter File to List- S ' 



cnd_RaadS 
Cr Lf$ 



db 
db 



'Press ANY Key to Exit' 
err I f t'4> 



?epart$ 



db 



.' *. > 



'Files Matching Uiiidcards'jcr^iti-'S 



er r or messages 



D i r Err OrS 



db 



Cr j 



fi'Di** 6QD : t^ror : n DIR comma nd J ictj I f i ' S 1 * 



DataJ-engtK 



equ 



S-Beg i r_0f _Data 



e n g t h of data area 
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beginning of code area 



Start s 



L c d I n t C'earSceen 



' c l ear t^e screen 



screen 



ma v dx» offset He ' I c^ 
Daslnt Ca nSt ~ i noOutput 



5 oast a he I la message to 



ca I 

mav 
or 

jz 



si f offset Ft I eSpecS-2 

CanStr i nglnout 

a I .byte ptr Cs i +13 

al «a' 

Start 



ds : s i -> ASCI 12 f i I ename 

da the read 

zero r ead? 

(they only pressed ENTER) 

if sq > try again 



i nc 
x or 
add 

ttO v 
mav 



5 : 

5 i 
ah 

ax 
5 i 
by 



i ah 
> s i 
j ax 
te ptr Cs i ] >Dh 



bump counter 

UD Z 

c ! ean off msb 
ax = offset end of string 
move resultant into si 
make ASCIIZ 



mav 
m o v 
Dos I nt 



c x 

dx 



jc 



j <30 h 

joHset F i I eSpec$ 
ndF i r s t 
r a r 



laok far all + i I es 
ds • dx -> file mas k 
dc fi^st scan 
if carryj error 



Display Find*- 



Lcdlnt ClearScreen 

push d X 

mav dx iQtfset Reoar t$ 

Daslnt CanStr i pgOutPut 

pap d x 

mav ax > 9 

add a x j d x 

m av s i j ax 

push ds 

pUSh ex 

pap d s 



c 1 e a >~ the screen 
far a minute 

dx -> header 
dqs t that 
restore dx 

lets add a+f set 9 
tc the breui 
mave that to s i 
save ds for a while 
save cur segment 
Into c s 
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mov 



ex. 21 



bytes 








Pas t_Loap * 










mav 




a 1 i byte p tr Est] 




or 




a 1 / a i 




jz 




Post_0ut 




mav 




di *•: 




OasI 


nt 


PutCKar 




i n c 




5 ' 




1 ODP 




Pas t_Laop 


Post_0u t : 










pap 




ds 




m o v 




dx>af f set O _L*f * 




Das I 


nt 


CanStr i ngOutput 




Das I 


nt 


F i ndNe xt 




jnc 




D i s p 1 ay_F i nd 




c mo 




ax j 2 




J2 




C 1 ean_Ex i t 



; attemot to read max 21 



; grab the byte 
is it a 2 e r o^ 
yes j s a boag i e 
mav e c har t □ d I 
pas t char 
si -> next cnaf 
go thr ough aga i n 

restore d5 

new line 

pas t to 5 cr een 

ga find the next file 

and past i t 

see if we've an error 

( bes i des "out af fi! es" ) 



handle error in directory 



Error : 



mov bxi offset Dir_Errar$ 
Daslnt ConStr i ngOutput 



I dx — > error 
i pas t i t 



C I ean Ex i t : 



TIC V 

Dos i nt 

:a ; : 



dx>offset End_Road$ 
CanStr i ngOutput 
Getc 



c I55 isy "g^adbye 



tr 



x\ 



B ' t + cr a character 



dump 



m a v 

Das I nt 
endp 



a I t -1 
Ex i t 



I exit uj/c return 
I go ham e 



Co nSt r i ng I npu t 



-S5U 



t$ 



P r a c 
push 

mav 
mov 
i nc 



near 

5 i 

c 1 1 byte p tr [si] 

chrB 



save for a s pe i I 
get legimate count 
th ; 5 is counter 
bumo si tC p O i r t to 
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CanLoop 



Ca nBack 
way 



Co pFu 



CcnEx i t 



pus h 
cal I 

CT1D 
J2 

cmp 
J2 

cmp 

m o v 
Dos I nt 

i nc 
m a v 
dec 

i nc 
jrno 

cmp 

J2 

Lcdlnt 
dec 
pus h 
Lcdlnt 
ma v 

Das I nt 
pop 

Led I n t 
dec 
i nc 
dec 
jmp 

mav 

Das I nt 
j mp 

DQD 

mav 
pap 



s ave 



or a s pe 



Getc 
al >13 
CanEx i t 
a I i8 

ConBack 

c I > D 

ConFu I I 
d I >a I 

PutChar 
5 i 

byte p t r 

c I 

cH 

ConLcoo 

ch , a 

ConFu I ! 
Get Cur s a r 
dh 

dx 

SetCur sar 
d I > > > 

a utChar 
dx 

Set Cu rsoi* 

s i 

c! 

ch 

CanLaa p 

d I t 7 

PutC^a^ 

CanLoop 



Cs i 3 9 a 



byt9 otr [s i 3 j ch 



get a character 

is it a c&r r i age retu^-i 7 
yesi so exit routine 

is ■ t a backspace 7 
yes j 5 o hand I e 

i S ex = " 7 

yes j so hand I e 

mave character into d! 

pas t t a screen 

increment painter 
save char act er 
deer emen t c I 
and increment bl 
ga and da it again 

'->ave we backspaced all 

yes i so beep user 
get cursor position 
move back cal umn 
save pas i t i an 
set cursor pas 
d i s o I ay a space 
cast a c^sracte*- 
get cusc- dos back 
set cursor CDS 
b — ^o pc ntfir back 
i re r emen t c ! 
dec ch 

go do aga i n 



ee = 
C5 t 



ga do 



to s c r e e r 

a<=i£ i n 



get back eld otr 
save character cc^nt 



get 



g 1 na 



= t r 
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ConStr i ng I npu t 



Get 



ret 




endo 




pr Gc 


«ear 


Das In 


t GetChar 


cmp 


ax > 67DDn 


> 

JZ 


D5 _ qu i t 


c mo 


ax } 5eG0h 


jz 


as_sus Den d 


cmp 


ax j OclOOK 


J2 


as_5u5 pend 


cmp 


ax > 0c2GDS 


jz 


as_^edraw 


ret 





to ca i ler 



get a character 

da we have a <quit> ? 

yes \ get out 

da we have a contra! -f l* 7 

yes > get out 

da we have a (susoend)'' 

yes* get out 

do we have a (redraw)? 

yes ) get out 

else retur n 



as_5uspend 

os_qu i t s 
a5_au t : 
as_r edr aw • 
Getc 
Ad I s i z 
Cede 



mav 
jmp 

mav 



eau 

e->cl5 

end 



a I j 

5 _ O u t 

al 3-1 



Cos Int Ex i t 

ret 
enclo 



S-beg i n 



; exit w/ return c'acse 

s get out at Dodge 

; exit w /a retur n 

; -'bye 



i nu 



r out i ne . . . 



Dump 
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